Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/H-I/HyperInstaller ƒ.cpt/HyperInstaller ƒ/Hyper Installer/stack_-1.xml

Extensible Markup Language | 1991-10-07 | 6KB | 22 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>3</cardCount>
    <cardID>3022</cardID>
    <listID>5435</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openStack-- Needs: User preferences card of the home stack-- remembers user specified preferences for laterglobal Stacks,Applications,Documents,UserName,userLevelprefslock screenset lockRecent to trueset lockMessages to truepush this card -- remember where we arego home -- will take us to the home stack in case we're not thereput cd fld "User Level" of cd "User Preferences" into userLevelprefspop card -- return to where we wereset lockRecent to false -- clean up for exitset lockMessages to falseunlock screengo to card 1get the short name of cd btn id 37if it = "Administrative" then set userLevel to 1if it = "Set Up for Use" then set userLevel to 5if the userLevel < 5 thenset the cantModify of this stack to falseset the cantAbort of this stack to truehide MenuBardisable menu "Go"disable menu "Edit"disable menu "File"set the cantModify of this stack to trueelseend ifshow cd btn "Go"show cd btn "Cancel"show cd btn id 37end openStackon closeStackglobal userLevelprefsset userLevel to userLevelprefsend closeStackon idleget the userLevelif it < 5 thenhide card button "Administration" of card 1hide card button "Open User Log" of card 1hide card button "Close User Log" of card 1hide card button "Clear User Log" of card 1hide card button "User Log Name" of card 1hide card button "Help" of card 1go to cd 1elseshow card button "Administration" of card 1show card button "Open User Log" of card 1show card button "Close User Log" of card 1show card button "User Log Name" of card 1show card button "Help" of card 1end ifend idleon arrowKeyget the userLevelif it < 5 thenbeepelsepass arrowKeyend ifend arrowKeyon showErrorglobal usersVolume,sourceFile,destFile,loopCount,sourceFolder,¬destFolder,folderName,erasefolder,error,success,job,SDCount,¬buttonName,errMessageif error = -1 thenput "Not enough memory to copy" into errorput "Ran out of RAM memory during installation......aborting!"¬into errMessageabortInstallelseif error = 1 thenput "Cannot open source file (file not found)" into errorput "Can't read the file...aborting!" into errMessageabortInstallelseif error = 2 thenput "Cannot create destination file" into errorput "Can't create the file...aborting!" into errMessageabortInstallelseif error = 4 thenput "Error reading source file" into errorput "Can't read the file...aborting!" into errMessageabortInstallelseif error = 5 thenput "Error writing output file" into errorput "Can't create the new file...aborting!" into errMessageabortInstallelseif error = "Error : File is busy" thenput "You must QUIT all applications before running this installer"¬into errMessageabortInstallelseif error = "Error : I/O Error" thenput "There was a disk error...aborting!" into errMessageabortInstallelseif error = "Error : Folder is full" thenput "Not enough room in your folder...aborting!" into errMessageabortInstallelseif error = "Error : Appleshare insufficient priveleges" thenput "Appleshare priveleges are set incorrectly...aborting!" into errMessageabortInstallend ifend ifend ifend ifend ifend ifend ifend ifend ifif error = "0" then put "No error..." into errorif error is empty then put "No error..." into errorif error = 3 then put¬"File already exists on user's drive...skipping." into errorwriteLogend showErroron writeLogglobal usersVolume,sourceFile,destFile,loopCount,sourceFolder,¬destFolder,folderName,erasefolder,error,success,job,SDCount,¬buttonName,errMessageget cd fld "Log Name"put it into logNameOpen file logNameread from file logName until endwrite job & return to file logNamewrite cd fld "SourceField" & return to file logNamewrite cd fld "DestField" & return to file logNamewrite error & return to file logNameclose file logNameend writeLogon successplay "Hallelujah"wait until the sound is doneend successon unSuccessglobal errMessageplay "Buzzer"put errMessageanswer "Installation was Not Successful!!!  Reason shown below." with¬"OK"end unSuccesson abortInstallglobal usersVolume,sourceFile,destFile,loopCount,sourceFolder,¬destFolder,folderName,erasefolder,error,success,job,SDCount,¬buttonName,errMessageput "Not Successful!!!" into successwriteLogunSuccessfinishUpend abortInstallon finishUpglobal usersVolume,sourceFile,destFile,loopCount,sourceFolder,¬destFolder,folderName,erasefolder,error,success,job,SDCount,¬buttonName,errMessageput empty into cd fld "SourceField"put "Installation finished" into cd fld "Destfield"put empty into errorif success = "Not Successful!!!" then put "Installation NOT Successful"¬into errorput "Installation " & success into cd fld "Misc."put "Installation " & success into jobshowErrorif success = "Successful!!!" then Successwait 1 secondput empty into cd fld "Destfield"put empty into cd fld "Misc."hide cd fld "SourceField"hide cd fld "DestField"Hide cd fld "Misc."show button "Go"show button "Cancel"show button id 37doMenu "Quit HyperCard"if success = "Not Successful!!!" then play "DragnetBeep"wait until the sound is doneif success = "Not Successful!!!" then exit to Hypercardend finishUp</script>
    <background id="2642" file="background_2642.xml" name="Main Background" />
    <card id="3022" file="card_3022.xml" marked="false" name="Card 1" owner="2642" />
    <card id="3883" file="card_3883.xml" marked="false" name="Files Card" owner="2642" />
    <card id="5085" file="card_5085.xml" marked="false" name="Folders Card" owner="2642" />
</stack>